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10365-1984 99:38:32 BASRTL. ReSBASGE TRF A.BS2;1 te (1) 
° MODULE BASSGETRFA ( ! Get RFA from RAB 
re = '1-004' ! File: BASGETRFA.B32 Edit: KC1004 


BEGIN 


RRR REAR AAA RARER ERR ERE AREA AEE RARER AAAS 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


0 é 

0 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

0 is ALL RIGHTS RESERVED. 

0 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 

0 is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR A R 

0 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

0 ie OTH SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


i® THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
D SHOULD NOT BE CONSTRUED AS A COMMI 


® 
® 
® 
® 
® 
® 
® 
® 
® 
! ® 
ie TRANSFERRED. > 
® 
* 
® 
® 
® 
® 
® 
® 
® 
® 


; ; 

3 4 

; 5 1 

3 6 1 

5 7 1 

3 8 1 

3 Q 1 

; W 10 1 

: 12 4 

; i 13 1 

: 14 1 1 

Bee: 1) 

; 16 1 

$s V7 ia 

; 18 #1 

; VW 019 1 

: 20 020 1 !* AND SHOUL TMENT BY DIGITAL EQUIPMENT 
; $3 OS : S CORPORATION. 

; '® 

é 23 02 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
: 24 024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

Boy Ba ie 

° ® 

: st 02 1 PITIIIIIIITILI LLL LIL LLL LTT LLL TLL itil ti lili 
i 028 1! 

.. a 029 1 

; 7» 030 1 !+¢ 

; 031 1 ! FACILITY: Basic Language Support 

a 032 1! 

; 33 03 1 ! ABSTRACT: 

; | 634 034 1! 

3 $2 O3 ‘ BASSGETRFA will fetch the RFA stored in the RAB. 

3 3 Be : ENVIRONMENT: Runs at any access mode - AST reentrant 

; 0039 1 ! AUTHOR: Pamela Levesque, CREATION DATE: 2-Jun-1982 

: 40 0040 1! 

; 41 0041 1 ! MODIFIED BY: 

3 2 0042 1! 

. 0043 1 ! 1-001 - Original. PLL 02-Jun-1982 

: «644 Bee 1! 1-008 - Make routine global. PLL 3-Jun-1982 

s 65 045 1 ! 1-005 - RFA is passed by ref. Also, give an error if there is no rfa. 
: 46 0046 1! PLL 4-Jun-1982 

s 047 1 ! 1-004 = Set up ISBSA 4: FP so the unwind in the error handler works 
: 48 048 1! property. KC 12-Jun-1984. 

; «649 0049 1 !-- 

5 0050 1 
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ase Declarations 19-88-1382 90:38:32 BASRTL. neieasce thea 642; . (2) 
3 ¢ O3¢ ! SBTTL ‘Declarations’ 
H 4 0 ; 1 ! SWITCHES: 
Pg vas Bae 
5 3° B28 } SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 59 0038 1! 
; 6 059 1 ! LINKAGES: 
; 6) 0060 1! 
; ¢ 061 1! NONE 
; § O96 1! 
3 64 065 1 ! TABLE OF CONTENTS: 
; 6 0064 1! 
; & 8302 1 
H 67 066 1 FORWARD ROUTINE 
5; @& 0067 1 BASSGETRFA : NOVALUE; ' Get RFA from RAB 
; & 068 1 
; 70 069 1! 
5 71 0070 1 ! INCLUDE FILES: 
fa oore 1. 
3 ey Oo e7 1 LIBRARY ‘RTLSTARLE'; ! System symbols, typically from SYS$LIBRARY:STARLET.L32 
3 e Bor8 ' REQUIRE "RTLIN:RTLPSECT'; ! Define PSECT declarations macros 
4 78 0171 1 REQUIRE ‘RTLML:OTSISB'; 
; 79 0339 1 
3 80 0340 1 REQUIRE "RTLML:OTSLUB'; 
3.6 (CS 0480 1 
3 82 0481 1 REQUIRE ‘'RTLIN:OTSLNK'; 
3; 6483 0910 1! 
$ 84 0911 1 ! MACROS: 
; 85 gate 1! 
; 0913 1! NONE 
: 87 0914 1! 
3 88 0915 1 ! EQUATED SYMBOLS: 
; «689 0916 1! 
4 90 0917 1! NONE 
2 0918 1! 
; 4 0919 1 ! FIELDS: 
; 9 o360 1! 
; 694 0921 1! NONE 
; | «69S 0338 1! 
s 96 9 1 ! PSECTS: 
; V7 base 1: beg: 
3 4 mS? : DECLARE _PSECTS (BAS); ' Declare PSECTs for BAS$ facility 
; 100 88 7 1 =! OWN STORAGE: 
3: 101 928 1! 
3 108 929 1! NONE 
: 10 930 1! 
; 104 931 1 ! EXTERNAL REFERENCES: 
3; 105 236 1! 
3 196 9335 1 
: 10 934 1 EXTERNAL ROUTINE 
; 108 0935 #1 BAS$$STOP_10 : NOVALUE, ! Signal fatal 1/0 error 


ene" Declarations Eber 99:38:32 BASRTLe $R ¢ BASce TRS 682; 57 Sa (23 


9 $ 1 BASS$$CB_PUSH : JSB_CB_PUSH NOVALUE, ' Load reptocer ccB 
, { BASSSCB_POP : JSB_CB_POP NOVALUE; ! Done with rootetar ccB 
939 EXTERNAL LITERAL Condition value symbols 


No current record 
Illegal or illogical access 
! 1/0 channel not open 


ED (8), 
BASSK_ILCILLACC UNSIGNED (8), 
BASSK_IO_CHANOT : UNSIGNED (8); 


— 2 2 8 od 2 
Drarunm—os 
oO 
oOo 
= 
Oo 


1 
! BASS$K_NO_CURREC : UNSIGN 
1 
1 
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i008 BASSGETRFA = Get RFA from RAB 14S 71984 99338532 EBASRTL- SRC BASGETREA.BS2;1 ne (3) 


; 118 944 1 XSBTTL 'BASSGETRFA = Get RFA from RAB’ 

; Vi9 945 1 GLOBAL ROUTINE BASSGETRFA ( ' Get RFA from RAB 
s t20 | 1 UNIT, ' Logical unit number 
s 121 947 1 RFA ' addr in which to return RFA 
9 § 4 1 ) : NOVALUE = 

2 0949 1 

: 126 o320 1 !44 

: : 5 8323 ! FUNCTIONAL DESCRIPTION: 

3 1 ; 9988 1 | This routine returns the RFA (record file address) of the last record 
: 128 0954 1! accessed for the specified channel. The 6 byte RFA is stored in the 
3 ! ; 0956 : } location passed as a dtype z descriptor. 

s 131 929 1 ! CALLING SEQUENCE: 

i) ; bae6 7% 

oe 959 1! BASSGETRFA (UNIT. rlu.v, RFA.wx.r) 

; «134 0960 1! 

s 135 0961 1 ! FORMAL PARAMETERS: 

3; 136 04] 1! 

a. Yar 0965 1! UNIT. rlu.v Logical unit number 

; «4138 0964 1! FA.wx.r where to store the RFA 

3 6139 0965 1! 

; 140 0966 1 ! IMPLICIT INPUTS: 

: «141 0967 1! 

: rs 0968 1! NONE 

3; «14 0969 1! 

3 6144 0970 1! IMPLICIT OUTPUTS: 

3 145 0971 1! 

3 6146 0972 1! NONE 

3 147 0973 1! 

3; 6148 0974 1 ! COMPLETION STATUS: 

3 «6149 0975 1! 

; 150 0976 1! Signals any errors 

3 151 0977 1! 

; 152 0978 1! SIDE EFFECTS: 

5. 339 0979 1! 

3 1546 0980 1! NONE 

s 155 0981 1! 

s 136 0982 1 !-- 

. Toe 0983 «(1 

; 158 0984 2 BEGIN 

3; «4159 0985 2 

; 160 0986 GLOBAL REGISTER 

; 6161 987 CCB = K_CCB_REG : REF BLOCK C, BYTE); 

5 106 988 

: 16 0989 BUILTIN 

3 6164 0990 FP; 

3; 165 0991 

; 166 099 LOCAL 

3; 167 344 FMP : REF BLOCK C, BYTE); 

; 168 994 

: 199 995 FMP = FP; 

; 17 996 i? : - 

: 171 aad : Allocate the LUB/ISB/RAB for this unit if necessary. 
$ 138 999 BASSS$CB_PUSH (.UNIT, LUBSK_ILUN_MIN); 

: 1746 1000 


—————————————_—— 
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eae be BASSGETRFA = Get RFA from RAB 12-8001 384 0: 38:32 BASRTL’ SREIBASGE REA 692: 1 age: 33 
. Ure 1001 ‘4 
5 178 1 8¢ ' Load the CCB with the user's FP so that an unwind in the 
: ive } $7 ; error handler works properly. 
3 19 1005 CCB CISBSA_USER_FP] = .FMP CSFSL_SAVE_FP; 
; i He BAL cane is not open, give an error. There's no RFA for 
s 18 100 t= 
; 18 1910 IF (NOT .CCB CLUBSV_OPENED]) THEN BASSS$STOP_IO (BAS$K_IO_CHANOT); 
: (186 1912 \¢ 
5 Ht a No RFA for virtual files. 
; 189 1019 IF .CCB CLUBSV_VA_USE] THEN BASS$STOP_IO (BASSK_ILLILLACC); 
: 191 1019 rr 
3 136 1018 ' Return the RFA. 
3 (19 1019 i. 
5 194 1020 IF .CCB CRABSL_RFAO] NEQ 0 
3; 6195 1021 T 
3 196 1038 CHSMOVE (6, CCB CRABSW_RFAJ, .RFA) 
: 197 102 SE 
; 198 1024 BEGIN 
; 198 1085 BASS$STOP_IO (BAS$K_NO_CURREC) 
; $4 1027 2 !+ : 
5 $06 1028 ! Pop the CCB off the 1/0 system. 
; 20 1029 te 
3; 204 1030 g BASSSCB_POP (); 
3; 205 1031 
3; 206 1032 1 END; ' End of routine BASSGETRFA 
«TITLE BASSGETRFA 
IDENT \1-004\ 
-EXTRN BASS$$STOP_I0, BAS$$CB_PUSH 
-EXTRN BASS$$CB_POP, BASSK_NO_CURREC 
-EXTRN BASS$K_ICLILLACC 
-EXTRN BASS$K—10_CHANOT 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
087C 00000 -ENTRY BASSGETRFA, Save R2,R3,R4,R5,R6,R11 3 0945 
29 000000006 00 of 00002 MOVAB BASS$SSTOP_{0, R6 3 
5 5D D0 00009 MOVL FP, FMP : 0995 
50 08 cf 0000C MNEGL #8, RO ; 0999 
52 04 AC 00 0000F MOVL UNIT, R2 ; 
000000006 00 16 00013 JSB BAS$$CB_PUSH ; 
FF4C 3=CB OC UA 09 0019 MOVL 12(FMP)> -180(CCB) : 1005 
97 FC AB g 001F BLBS -4(CCB) : 1610 
E 006 8F 9A 000 3 MOVZBL #BASSK {io CHANOT, -(SP) : 
66 01 FB 900 CALLS #1, BASS$S$STOP_IO 3 
: FF AB : 002A 1$ BLBC -1(CCB) > 1015 
F 006 8F 9A 900 5 MOVZBL #BASSK futiteacc, -(SP) : 
66 1 FB 000 CALLS #1, BASS$$STOP_IO ; 


16 
aegace TRA BASSGETRFA = Get RFA from RAB 1b-360-1984 99:38532 BASRIL SREIBA BA ott Pa. A B82; 31 “ne (35 


10 Ae D H 23: TSTL oo ; 1020 
1 BEQL 3 

08 BC 10 AB $ ¢ A MOVC3 #6, 16(CCB), @RFA 3 1022 
1 00040 BRB 4$ ; 

7E 006 8F 9A 00042 3$: MOVZBL WBASSK NO Herts: -(SP) 3 1025 
6 01 FB 00046 CALLS BASS$STO 3 

00000000G 00 16 00049 4$: JSB BASSSCB or : 1030 

04 0004F RET 3 1032 


; Routine Size: 80 bytes, Routine Base: _BASSCODE + 0000 


; 207 1035 1 !<BLF/PAGE> 


N 
_BASSC 


F 


~$255$DUA28: CSYSLIBISTARLET.L32;1 


Fe SEI SRE SEO FOLD DEST EAL «SPT EASES NOTRALE A, FOE LID BASEE POY APR TR LO LENORE OF A MSRC$:BASGE TRF A/UPDATE=(ENHS$:BASGETREA 


sizer 


un Time 
pte 
Lines/C 


ame 
ODE 


ile 


hae 
PU Min: 


BASSGETRFA = Get RFA from RAB 
1035 1 END 
1036 0 ELUDOM 


PSECT SUMMARY 
Bytes 


80 NOVEC,NOWRT, RD, 
Library Statistics 
“yee Symbols 
Total Loaded 
9776 3 


COMMAND QUALIFIERS 


80 code °° data bytes 
00:20.3 
73 


“Sey he that 43912 


pee Bh 


Used 


115 pages 


tion Complete 


1-00-1984 90:54:55 


BASRTL.SRC JBASGE 
! End of module BASSGETRFA 


Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
rcnaengunen Pages Processing 
Percent Mapped ime 

0 581 00:01.0 


AX-11 Bliss-32 EP tps 
TREA.B52;1 
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